Declare Function GetDeviceCaps Lib "GDI" (ByVal hDC As Integer, ByVal nIndex As Integer) As Integer
Global Const TRUE = -1
Global Const FALSE = 0
Declare Function Escape Lib "GDI" (ByVal hDC As Integer, ByVal nEscape As Integer, ByVal nCount As Integer, lplnData As Any, lpOutData As Any) As Integer
Global Const GETPHYSPAGESIZE = 12
Global Const GETSETPRINTORIENT = 30
Global Const SP_ERROR = -1 'Miscellaneous constant
Global Const NULL = 0 'Miscellaneous constant
' Logical pixels/inch in X
Global Const LOGPIXELSX = 88
' Logical pixels/inch in Y
Global Const LOGPIXELSY = 90
Type POINTAPI
X As Integer
Y As Integer
End Type
Type TEXTMETRIC
tmHeight As Integer
tmAscent As Integer
tmDescent As Integer
tmInternalLeading As Integer
tmExternalLeading As Integer
tmAveCharWidth As Integer
tmMaxCharWidth As Integer
tmWeight As Integer
tmItalic As String * 1
tmUnderlined As String * 1
tmStruckOut As String * 1
tmFirstChar As String * 1
tmLastChar As String * 1
tmDefaultChar As String * 1
tmBreakChar As String * 1
tmPitchAndFamily As String * 1
tmCharSet As String * 1
tmOverhang As Integer
tmDigitizedAspectX As Integer
tmDigitizedAspectY As Integer
End Type
Declare Function GetTextMetrics Lib "GDI" (ByVal hDC As Integer, lpMetrics As TEXTMETRIC) As Integer